home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aac.d64 / inst.football (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  9KB  |  294 lines
  1. 5 PRINT"[147]"
  2. 8 PRINT
  3. 10 PRINT" WELCOME TO THE WORLD OF 2-MAN FOOTBALL"
  4. 12 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  5. 30 PRINT"THIS GAME WAS WRITTEN BY"
  6. 35 PRINT
  7. 40 PRINT"       GEORGE DAVIS"
  8. 50 PRINT"       335 LONSDALE ROAD"
  9. 51 PRINT"       PH #3"
  10. 59 PRINT"       TORONTO,ONT."
  11. 60 PRINT"M5P 1R4"
  12. 61 PRINT:PRINT
  13. 62 PRINT" IF YOU ENJOY PLAYING THIS GAME"
  14. 63 PRINT"   PLEASE SEND $10.00 TO ME"
  15. 64 PRINT"   AT THE ABOVE ADDRESS"
  16. 65 PRINT:PRINT:PRINT:PRINT
  17. 70 PRINT"I HOPE YOU ENJOY IT!!"
  18. 71 PRINT:PRINT:PRINT"PRESS SPACE BAR TO GET NEXT PAGE":GOSUB8000
  19. 75 PRINT
  20. 80 PRINT"THIS GAME USES CANADIAN RULES:"
  21. 81 PRINT
  22. 82 PRINT"--THE FIELD IS 110 YARDS LONG."
  23. 83 PRINT"--THERE ARE 12 MEN ON A TEAM."
  24. 84 PRINT"--YOU HAVE 3 DOWNS TO MAKE 10 YARDS."
  25. 85 PRINT"--THE END ZONES ARE 25 YARDS DEEP."
  26. 86 PRINT"--A KICK INTO THE END ZONE[160]MUST BE RUN"
  27. 87 PRINT"   OUT, OTHERWISE IT IS A SINGLE POINT"
  28. 88 PRINT"   FOR THE KICKER.  HOWEVER, THE"
  29. 89 PRINT"   RECEIVER MAY CONCEDE THE SINGLE"
  30. 90 PRINT"   POINT IF HE SO DESIRES."
  31. 91 PRINT"--A KICK OVER THE DEAD-BALL LINE"
  32. 92 PRINT"   CANNOT BE RUN BACK."
  33. 93 PRINT"--AFTER A SINGLE POINT, THE SCORED-UPON"
  34. 94 PRINT"   TEAM GETS FIRST DOWN ON HIS OWN"
  35. 96 PRINT"   35 YARD LINE.":GOSUB8000
  36. 100 PRINT"       FIELD GOAL RULES:"
  37. 102 PRINT
  38. 104 PRINT"AFTER A SUCCESSFUL FIELD GOAL THE"
  39. 106 PRINT"  RECEIVER HAS THE FOLLOWING OPTIONS:"
  40. 107 PRINT
  41. 108 PRINT"1-KICK OFF FROM HIS OWN 35 YARD LINE;"
  42. 110 PRINT"2-HAVE HIS OPPONENT KICK OFF FROM THEIR"
  43. 112 PRINT"  35 YARD LINE;"
  44. 114 PRINT"3-FIRST DOWN FROM HIS OWN 35 YARD LINE."
  45. 115 PRINT
  46. 119 PRINT"IF THE FIELD GOAL IS NOT SUCCESSFUL AND"
  47. 120 PRINT"  THE BALL GOES INTO THE END ZONE, THE"
  48. 122 PRINT"  THE RECEIVER MUST RUN IT OUT OR MAY"
  49. 124 PRINT"  CONCEDE THE SINGLE POINT."
  50. 126 PRINT"    IF A SINGLE POINT IS SCORED, THE"
  51. 128 PRINT"  RECEIVER HAS FIRST DOWN AT EITHER"
  52. 130 PRINT"  HIS OWN 35 YARD LINE OR AT THE POINT"
  53. 132 PRINT"  OF THE PREVIOUS SCRIMMAGE."
  54. 134 PRINT"    THIS PROGRAM AUTOMATICALLY"
  55. 136 PRINT"  SELECTS THE APPROPRIATE YARD LINE."
  56. 138 PRINT
  57. 140 PRINT"(AFTER A SAFETY TOUCH, THE SAME OPTIONS"
  58. 141 PRINT"  ARE AVAILABLE TO THE SCORING TEAM)":GOSUB8000
  59. 180 PRINT"     -PLAYING PROCEDURE-"
  60. 185 PRINT
  61. 190 PRINT"BOTH PLAYERS WILL BE SEATED"
  62. 200 PRINT"  AT THE CONSOLE."
  63. 205 PRINT"DO NOT USE MORE THAN 9 LETTERS FOR"
  64. 206 PRINT"  TEAM NAMES."
  65. 210 PRINT"THE KICKOFF IS STRAIGHT-FORWARD."
  66. 215 PRINT
  67. 220 PRINT"THE DEFENSIVE TEAM SETS UP THE DEFENSE."
  68. 230 PRINT"--WHILE HE IS DOING THIS HIS OPPONENT'S"
  69. 240 PRINT"  VIEW OFTHE SCREEN MUST BE OBSTRUCTED."
  70. 250 PRINT"  A LARGE PIECE OFCARDBOARD OR PAPER"
  71. 260 PRINT"  CAN BE USED FOR THIS PURPOSE."
  72. 265 PRINT
  73. 270 PRINT"AFTER THE DEFENSIVE SETUP IS CLEARED"
  74. 280 PRINT"  FROM THE SCREEN, THE OFFENSIVE"
  75. 290 PRINT"  PLAYER SELECTS HIS PLAY."
  76. 295 PRINT
  77. 300 PRINT"THE GAIN IS THE RESULT OF THE"
  78. 301 PRINT"  COMBINATION OF OFFENSIVE AND"
  79. 302 PRINT"  DEFENSIVE PLAYS SELECTED.":GOSUB8000
  80. 304 PRINT"     -PLAYING PROCEDURE-"
  81. 305 PRINT
  82. 306 PRINT"AFTER EACH PLAY, THE DEFENSIVE SETUP"
  83. 307 PRINT"  IS SHOWN (FROM THE OFFENSIVE"
  84. 308 PRINT"  PERSPECTIVE) SO THAT THE OFFENSIVE"
  85. 309 PRINT"  PLAYER CAN REVIEW THE DEFENSIVE"
  86. 310 PRINT"  STRATEGY OF HIS OPPONENT."
  87. 311 GOSUB8000
  88. 341 PRINT"        -DEFENSIVE SETUP-"
  89. 342 PRINT
  90. 343 PRINT
  91. 344 PRINT"THE DEFENSE CONSISTS OF:"
  92. 345 PRINT
  93. 350 PRINT"--DEFENSIVE     [166]      [166] [166] [166] [166]    [166]"
  94. 360 PRINT"   LINE       L.END   4 LINEMEN  R.END"
  95. 365 PRINT
  96. 370 PRINT"--SECONDARY    1     2    3   4    5"
  97. 375 PRINT
  98. 380 PRINT"                     6    7   8"
  99. 390 PRINT" --------------------------------------"
  100. 395 PRINT
  101. 400 PRINT"--DEFENSIVE    1                   2"
  102. 405 PRINT
  103. 410 PRINT"  BACKS        3     4    5   6    7"
  104. 412 PRINT
  105. 414 PRINT
  106. 416 PRINT
  107. 420 PRINT"THERE IS ALSO A 'BLITZ' DEFENSE"
  108. 430 PRINT"  WHICH IS REPRESENTED BY LINEBACKER #9":GOSUB8000
  109. 450 PRINT"    --DEFENSIVE LINE--"
  110. 455 PRINT
  111. 460 PRINT"THE LINE AND ENDS CAN CHARGE OR HOLD"
  112. 465 PRINT
  113. 470 PRINT"IF THE LINE HOLDS:"
  114. 480 PRINT" A TRAP PLAY WILL BE STOPPED."
  115. 490 PRINT" A DIRECT HANDOFF WILL GET THROUGH THEM."
  116. 500 PRINT"IF THE LINE CHARGES:"
  117. 510 PRINT" A DIRECT HANDOFF WILL BE STOPPED."
  118. 520 PRINT" A TRAP PLAY WILL GET THROUGH THEM."
  119. 525 PRINT
  120. 530 PRINT"IF THE END HOLDS:"
  121. 540 PRINT" A PITCHOUT WILL BE TURNED INSIDE."
  122. 545 PRINT
  123. 550 PRINT"IF THE END CHARGES:"
  124. 560 PRINT" A PITCHOUT WILL GET AROUND HIM."
  125. 565 PRINT
  126. 570 PRINT"NOTE[146]  IF BOTH ENDS AND THE LINE CHARGE"
  127. 580 PRINT" AND THE 'BLITZ' IS ON (#9 LINEBACKER)"
  128. 590 PRINT" THEN A PASSER TRYING A LONG PASS"
  129. 600 PRINT" WILL BE SACKED!!":GOSUB8000
  130. 610 PRINT"        ALSO NOTE[146]"
  131. 612 PRINT
  132. 615 PRINT"IF THE LINE AND BOTH ENDS CHARGE,"
  133. 620 PRINT"   A KICK WILL BE 'SHORT'.":PRINT
  134. 630 PRINT"IF EITHER END OR THE LINE HOLD,"
  135. 640 PRINT"   THE KICK WILL BE 'LONG'."
  136. 642 PRINT
  137. 644 PRINT
  138. 650 PRINT" * * * * * * * * * * * * * * * * * * * *"
  139. 652 PRINT
  140. 654 PRINT
  141. 660 PRINT" THE DEFENSIVE LINE HAS USED 6 MEN"
  142. 665 PRINT
  143. 670 PRINT"YOU MAY PLACE THE REMAINING 6 MEN"
  144. 675 PRINT"  IN ANY OF THE REMAINING POSITIONS"
  145. 677 PRINT"  OF SECONDARY OR DEEP BACKS.":GOSUB8000
  146. 690 PRINT"      --SECONDARY--"
  147. 695 PRINT
  148. 700 PRINT"CONSISTS OF:     1     2  3  4     5"
  149. 705 PRINT
  150. 710 PRINT"                       6  7  8"
  151. 715 PRINT
  152. 720 PRINT"PLUS #9, WHICH IS THE 'BLITZ' INDICATOR."
  153. 725 PRINT
  154. 730 PRINT"POSITIONS 1 AND 5 WILL:"
  155. 740 PRINT" -PREVENT A SCREEN PASS,"
  156. 750 PRINT"     (INTERCEPT OR INCOMPLETE)"
  157. 760 PRINT" -STOP A PITCHOUT AROUND THAT SIDE."
  158. 765 PRINT
  159. 770 PRINT"POSTIONS 2, 3 AND 4 WILL:"
  160. 780 PRINT" -STOP TRAP OR DRAW PLAYS WHICH GET"
  161. 790 PRINT"   THROUGH THE LINE (SHORT GAIN)."
  162. 795 PRINT
  163. 800 PRINT"POSTIONS 2 AND 4 WILL ALSO:"
  164. 810 PRINT" -STOP PITCHOUTS WHICH HAVE BEEN"
  165. 820 PRINT"   TURNED INSIDE (BIG LOSS).":GOSUB8000
  166. 830 PRINT"      --SECONDARY--[160](CONT'D)"
  167. 835 PRINT
  168. 840 PRINT"CONSISTS OF:     1     2  3  4     5"
  169. 845 PRINT
  170. 850 PRINT"                       6  7  8"
  171. 855 PRINT
  172. 860 PRINT"POSITIONS 6 AND 8 WILL"
  173. 870 PRINT" -PREVENT A HOOK PASS (INC OR INT),"
  174. 880 PRINT" -STOP A POST PASS"
  175. 890 PRINT"    (INCOMPLETE OR SHORT GAIN)",
  176. 900 PRINT" -STOP GROUND PLAYS (LONGER GAIN)."
  177. 905 PRINT
  178. 910 PRINT"POSITION 7 WILL:"
  179. 920 PRINT" -PREVENT A POST PASS (INC OR INT),"
  180. 930 PRINT" -STOP ANY HOOK PASS (INC OR SHORT),"
  181. 940 PRINT" -WILL STOP GROUND PLAYS (LONGER GAIN)."
  182. 941 PRINT
  183. 942 PRINT"POSITION 9 (BLITZ) WILL"
  184. 943 PRINT" -SACK A LONG PASS ATTEMPT, BUT ONLY IF"
  185. 944 PRINT"  THE LINE AND ENDS ARE CHARGING AS WELL":GOSUB8000
  186. 945 PRINT"   AFTER PLACING SECONDARY"
  187. 946 PRINT
  188. 947 PRINT"          PRESS 0 [146]":PRINT
  189. 948 PRINT"  YOU WILL THEN BE ABLE TO LOCATE"
  190. 949 PRINT"     THE DEEP DEFENSIVE BACKS.":GOSUB8000
  191. 950 PRINT"       --DEEP DEFENSIVE BACKS--"
  192. 955 PRINT
  193. 960 PRINT"CONSIST OF:       1               2"
  194. 965 PRINT
  195. 970 PRINT"                  3   4   5   6   7"
  196. 975 PRINT
  197. 980 PRINT"POSITIONS 1 AND 2 WILL:"
  198. 990 PRINT" -PREVENT A WIDE PASS (INC OR INT),"
  199. 1000 PRINT" -STOP A PITCHOUT (LONGER GAIN)."
  200. 1005 PRINT
  201. 1010 PRINT"POSITIONS 3 AND 7 WILL:"
  202. 1020 PRINT" -PREVENT A LONG PASS (INC OR INT),"
  203. 1030 PRINT" -STOP A WIDE PASS (INC OR SHORT),"
  204. 1040 PRINT" -STOP A PITCHOUT (LONGER GAIN)."
  205. 1045 PRINT
  206. 1050 PRINT"POSITION 5 WILL"
  207. 1060 PRINT" -PREVENT A LONG PASS (INC OR INT),"
  208. 1070 PRINT" -STOP A GROUND PLAY (LONGER GAIN),"
  209. 1075 PRINT
  210. 1080 PRINT"POSITIONS 4 AND 6 WILL"
  211. 1090 PRINT" -STOP A LONG PASS TO THE POSITIONS"
  212. 1100 PRINT"  ADJACENT TO THEM (INC OR SHORT).":GOSUB8000
  213. 1110 PRINT"    --KICKING SITUATIONS--"
  214. 1115 PRINT
  215. 1120 PRINT"IF THE LINE AND BOTH ENDS ARE CHARGING"
  216. 1130 PRINT"  THE KICK WILL BE SHORT.  IF THE LINE"
  217. 1131 PRINT"  OR EITHER END IS HOLDING, THE KICK"
  218. 1132 PRINT"  WILL BE LONG."
  219. 1135 PRINT
  220. 1140 PRINT"FOR A LONG RUNBACK:"
  221. 1150 PRINT" -ANY TWO OF THE DEEP LINEBACKERS"
  222. 1160 PRINT"  (#6,7 OR 8) PLUS THE DEEP BACK (#5)"
  223. 1170 PRINT"  MUST BE IN POSITION TO GET A"
  224. 1180 PRINT"  LONG RUNBACK.  OTHERWISE THE RUNBACK"
  225. 1190 PRINT"  WILL BE SHORT.":GOSUB8000
  226. 1200 PRINT"IT MAY HELP TO LOOK AT THE FIELD"
  227. 1210 PRINT"      LIKE THIS:"
  228. 1220 PRINT
  229. 1230 PRINT"--DEFENSIVE     [166]      [166] [166] [166] [166]    [166]"
  230. 1240 PRINT"   LINE       L.END   4 LINEMEN  R.END"
  231. 1245 PRINT
  232. 1250 PRINT"--SECONDARY    S     P*   3   P*   S"
  233. 1255 PRINT
  234. 1260 PRINT"                     H    C   H"
  235. 1270 PRINT" --------------------------------------"
  236. 1275 PRINT
  237. 1280 PRINT"--DEFENSIVE    W                   W"
  238. 1285 PRINT
  239. 1290 PRINT"  BACKS        L     4    L   6    L"
  240. 1291 PRINT
  241. 1292 PRINT
  242. 1295 PRINT"  P*=PITCHOUT (IF END IS HOLDING)"
  243. 1300 PRINT"  S=SCREEN PASS"
  244. 1310 PRINT"  H=HOOK PASS"
  245. 1320 PRINT"  C=CENTRE PASS (POST PATTERN)"
  246. 1330 PRINT"  W=WIDE PASS"
  247. 1340 PRINT"  L=LONG PASS":GOSUB8000:GOTO1600
  248. 1350 PRINT"       --HOUSE RULES--
  249. 1355 [153]
  250. 1360 [153]"CONVERTS NEED NOT BE ATTEMPTED.  SEVEN"
  251. 1365 [153]"  POINTS ARE AWARDED FOR A TOUCHDOWN."
  252. 1370 [153]
  253. 1375 [153]"A FIELD GOAL MAY NOT BE ATTEMPTED FROM"
  254. 1380 [153]"  BEYOND THE 50 YARD LINE."
  255. 1400 [153]
  256. 1405 [153]
  257. 1407 [153]
  258. 1410 [153]"             NOTE WAIT"
  259. 1412 [153]
  260. 1420 [153]"THIS GAME PROVIDES FOR PENALTIES,"
  261. 1430 [153]"  FUMBLES, AND UNEXPECTED LONGER RUNS."
  262. 1440 [153]
  263. 1450 [153]
  264. 1460 [153]"         I HOPE YOU HAVE FUN!!!"
  265. 1470 [153]
  266. 1472 [153]" * * * * * * * * * * * * * * * *"
  267. 1474 [153]
  268. 1480 [153]"DO YOU WANT TO GO OVER THE INSTRUCTIONS?"
  269. 1490 [153]"  (Y)ES OR (N)O"
  270. 1500 [161] A$:[139]A$[178]""[167] 1500
  271. 1510 [139] A$[178]"Y" [167] [137]5
  272. 1520 [139]A$[178]"N" [167] [153]"LOAD":[153]"LOADING FOOTBALL.BOOT":[147] "FOOTBALL.BOOT",8
  273. 1530 [139] A$[179][177]"Y" [176] A$[179][177]"N" [167] [137]1500
  274. 1600 [153]"      SPECIAL NOTE FOR OFFENSE"
  275. 1605 [153]"      TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  276. 1610 [153]"BEFORE MAKING HIS PLAY, THE OFFENSE"
  277. 1620 [153]" HAS A SPECIAL OPTION:"
  278. 1630 [153]"HE MAY ELECT TO GO INTO A 'SHORT PUNT'"
  279. 1640 [153]"  OR 'SPREAD' FORMATION."
  280. 1650 [153]"THIS MEANS THAT THE QUARTERBACK WILL"
  281. 1660 [153]" DROP BACK SO THAT HE CANNOTWAIT BE SACKED,"
  282. 1662 [153]"BUT-- ANY GROUND PLAY SELECTED WHEN"
  283. 1664 [153]" HE IS IN 'SPREAD' FORMATION WILL LOSE   10 YARDS."
  284. 1670 [153]"HOWEVER,"
  285. 1675 [153]"IF HE ELECTS TO USE THIS FORMATION THE"
  286. 1680 [153]" DEFENSIVE PLAYER CAN REARRANGE HIS"
  287. 1690 [153]" DEFENSE AND MAY PUT ONE MOREWAIT MAN BACK."
  288. 1700 [153]" TO SELECT THIS OPTION:"
  289. 1710 [153]"PRESS '*' WHEN ASKED TO SELECT YOUR PLAY"
  290. 1750 [141] 8000:[137]1350
  291. 8000 [161]A$:[139]A$[178]""[167] 8000
  292. 8010 [153]"LOAD":[142]
  293. 20000 [159]15,8,15:[152]15,"S0:INST.FOOTBALL":[148]"0:INST.FOOTBALL",8:[160]15
  294.